
Imports Microsoft.VisualBasic

Public Class CategoryGroup
    Inherits BaseEntity

    Private _CategoryGroupName As String
    Public Property CategoryGroupName() As String
        Get
            Return _CategoryGroupName
        End Get
        Set(ByVal value As String)
            _CategoryGroupName = value
        End Set
    End Property

    

    Public Overrides Function ToString() As String
        Dim buf As String = Me.ID & ", " & Me.CategoryGroupName
        buf &= MyBase.ToString()
        Return buf
    End Function


    Public Overloads Function compareAndGetDiff(ByVal _NewObj As CategoryGroup) As String
        Dim buf As String = ""
        If Me.CategoryGroupName <> _NewObj.CategoryGroupName Then
            buf &= "CategoryGroupName=" & Me.CategoryGroupName & " -> " & _NewObj.CategoryGroupName & " "
        End If

        buf &= MyBase.compareAndGetDiff(_NewObj)
        Return buf
    End Function
End Class

